perm filename PNEW.SAI[PNT,HE] blob sn#572758 filedate 1981-03-14 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	ENTRY
C00003 00003	PROCEDURE XERROR
C00004 ENDMK
CāŠ—;
ENTRY;
BEGIN "MSM"
COMMENT routines which are not available in AL;
DEFINE $PNEW=TRUE,$ALTER_EGO=TRUE;
REQUIRE "HEADER.SAI" SOURCE_FILE;

PROCEDURE XERROR;
	ERROR(TOKEN&" is a dummy statement, use some other word");

INTERNAL PROCEDURE FOOCALL(INTEGER I);
	XERROR;

END "MSM"